alternative Sichtweise

g = true
E = (0, 0, 0)
A = (1, 0, 4)
u = Vector(A)
C = Point(E, u)
B = (-2, 4, 4)
u2 = Vector(A, B)
t = 1.3 (slider from -8 to 8, step 0.1)
v: (t * u2)
F = Point(E, v)
w: u + v
D = Point(E, w)
Ty = Sequence(Segment[(0, t, (-0.1)), (0, t, 0.1)], t, 1, 6)
Tx = Sequence(Segment[(t, 0, (-0.1)), (t, 0, 0.1)], t, 1, 6)
Tz = Sequence(Segment[(0, (-0.1), t), (0, 0.1, t)], t, 1, 6)
w_1 = Vector((0, 0, 0), (0, 0, 7))
Kx = Sequence(Text[n, (n, 0)], n, 1, 6)
Ky = Sequence(Text[n, (0, n)], n, 1, 6)
v_1 = Vector((0, -2, 0), (0, 7, 0))
u_1 = Vector((-2, 0, 0), (7, 0, 0))
Vieleck1 = If(g ≟ false, Polygon[E, F, D, C])
a = Line(A, B)
Text1 = LaTeX(A, true, true)
Text2 = LaTeX(B, true, true)
Text3: "\vec{x} = " + (LaTeX[u]) + " + t " + (LaTeX[u2]) + ""
Text4: "\vec{x} = " + (LaTeX[u]) + " + t " + (LaTeX[u2]) + ""
G = Point(A, v)
b = Vector(A, G)
v2 = If(g ≟ false, v)